Aminet 15/Aminet 15 - Nov 1996.iso/Aminet/util/cdity/WinCommodity.lha/WinCommodity/Install

Text File | 1996-09-06 | 4.5 KB | 169 lines

; Installer Script für WinCommodity

; $VER: WinCommodityInstallScript 1.1 (06 Sep 1996) by Michael Gollmick

(set WC_dest  "SYS:WBSTARTUP")
(set DOC_dest "HELP:")
(SET ADDRESS            "\n\nMichael Gollmick\nLepsiusstraße 6\n06618 Naumburg/Saale\nGermany\n\ne-mail: [e-mail]\nPhone: +49/(0)177/2194809")

;*********************

; ENGLISH

(set WC_lang 0)
(set bad-kick           "You must have at least Workbench 2.0+")
(set WC_where_main      "Where should Wincommodity be copied too?")
(set WC_where_main_help " Choose a directory for WinCommodity.\n Usually, this is SYS:Tools/Commodities or SYS:WBStartup.\n")
(set WC_insta_def       "Copying WinCommodity")
(set DOC_where          "Where should WinCommodities documentation be copied too?")
(set DOC_where_help     "Sorry for This time there is only a german DOC...\nIF you are interested in translating the doc - contact the author!")
(set INSTALL_finish     "WinCommodity has been installed succesful.\nIt is now to be found in ")
(SET INSTALLED_Version  "The 68000-Processor-optimized version of WinCommodity has been installed.\n")
(SET INSTALLED_Version1 "The 68020/30-Processor-optimized version of WinCommodity has been installed.\n")
(SET INSTALLED_Version2 "The 68040/60-Processor-optimized version of WinCommodity has been installed.\n")


;*********************

; DEUTSCH

(if (= @language "deutsch")
    (
    (set WC_lang 1)
        (set bad-kick           "Sie benötigen Workbench 2.0 oder größer")
    (set WC_where_main      "Wohin soll  WinCommodity kopiert werden?")
    (set WC_where_main_help " Wähle eine Schublade für WinCommodity.\n Normalerweise ist das SYS:Tools/Commodities oder SYS:WBStartup.")
    (set WC_insta_def       "Kopieren von WinCommodity")
    (set DOC_where          "Wohin soll die Dokumentation von WinCommodity kopiert werden?")
    (SET DOC_where_help     "Wählen Sie ein Verzeichnis für die deutsche AmigaGuide-Dokumentation von WinCommodity.\nNormalerweise ist das HELP: ander das ist für den Gebrauch von WinCommodity nicht zwingend vorgeschrieben.")
    (set INSTALL_finish     "WinCommodity wurde erfolgreich installiert.\n sie finden es jetzt im Verzeichnis:")
    (SET INSTALLED_Version  "Es wurde die 68000-Prozessor-optimierte Version von WinCommodity installiert.\n")
    (SET INSTALLED_Version1 "Es wurde die 68020/30-Prozessor-optimierte Version von WinCommodity installiert.\n")
    (SET INSTALLED_Version2 "Es wurde die 68040/60-Prozessor-optimierte Version von WinCommodity installiert.\n")


    )
)

;***************************

(set #version (/ (getversion) 65536))

(if (< #version 37)
    (
    (abort bad-kick)
    )
)

(complete 0)
        (SET WC_CPU (database "cpu"))

(complete 2)

        (set WC_FASTER 0)
        (if (= WC_CPU "68020")
            (set WC_FASTER 1)
        )

(complete 4)

        (if (= WC_CPU "68030")
            (set WC_FASTER 1)
        )

(complete 6)

        (if (= WC_CPU "68040")
            (SET WC_FASTER 2)
        )

(complete 8)

        (if (= WC_CPU "68060")
            (SET WC_FASTER 2)
        )

(complete 10)

        (set WC_default-dest (""))

        (set WC_source-file "WinCommodity")
        (set WC_source-file_info "WinCommodity.info")

(complete 12)

        (IF (= WC_FASTER 1)
            (SET WC_source-file "WinCommodity.020")
        )

(complete 14)

        (IF (= WC_FASTER 2)
            (SET WC_source-file "WinCommodity.040")
        )

(complete 17)

        (SET WC_destdir
            (askdir
                (prompt WC_where_main)
                (help WC_where_main_help)
                (default WC_dest)
            )
        )

(complete 34)

        (copylib
            (prompt WC_insta_def)
            (help @copylib_help)
            (source WC_source-file)
            (dest WC_destdir)
            (newname "WinCommodity")
            (confirm)
        )

                (if (= (exists (tackon WC_destdir "WinCommodity.info")) FALSE)
                        (copyfiles
                (source WC_source-file_info)
                (dest   WC_destdir)
            )
                )

        (IF (<> @language "deutsch")
            (MESSAGE "Sorry there is only a german documentation for this time.\n\n If you are interested in translating the doc into other languages, please contact the author:" ADDRESS)
        )

(complete 51)

        (SET DOC_destdir
            (askdir
                (prompt DOC_where)
                (help DOC_where_help)
                (default DOC_dest)
            )
        )

(complete 68)

        (copyfiles
            (source "WinCommodity.guide")
            (dest DOC_destdir)
        )
(complete 85)
        (copyfiles
            (source "WinCommodity.guide.info")
            (dest DOC_destdir)
        )

(complete 99)
(IF (= WC_FASTER 1) (SET INSTALLED_Version INSTALLED_Version1))
(IF (= WC_FASTER 2) (SET INSTALLED_Version INSTALLED_Version2))

(MESSAGE INSTALL_finish WC_destdir".\n\n" INSTALLED_Version)

(complete 100)
(MESSAGE "WinCommodity is Copyright © by\n" ADDRESS)

(EXIT (QUIET))